100 REM *******************************
110 REM **FOX VALLEY '64' USERS GROUP**
120 REM ****** DISK JACKET MAKER ******
130 REM ****** BY DAVE WOOTEN *********
140 REM ****** JULY 30, 1984 **********
150 REM *******************************
160 REM: FOR NON-EPSON THREE COLUMN              JACKET CHANGE P$ TO CORRECT
170 REM  PRINTER CONTROL CODE IN          (null)      LINE #240
180 REM ** PR$  - PRINTER TYPE
190 REM ** P$(null)  - PRINTER CONTROL CODE  :
200 DIMA$(200),B$(200),C$(200)
210 POKE53280,6:POKE53281,0
220 PRINT"[147] DISK JACKET MAKER "    "
230 [153]" EWAITPSON OR CWAITOMMODORE PRINTER?";
240 [161]PR$:[139]PR$[178]""[167]240
250 [139]PR$[178]"E"[167][153]"    EPSON   ":P$[178][199](15):[137]280
260 [139]PR$[178]"C"[167][153]"  COMMODORE ":[137]280
270 [137]220
280 [153]" OWAITNE OR TWAITWO DISK SIDES?";
290 [161]SI$:[139]SI$[178]""[167]290
300 [139]SI$[178]"T"[167][153]"       TWO SIDES ":[137]330
310 [139]SI$[178]"O"[167][153]"       ONE SIDE  ":[137]330
320 [137]220
330 [153][163]5)"INSERT DISK AND PRESS RETURN";
340 [161]R$:[139]R$[178]""[167]340
350 [153]"LOAD WORKING "
360 [153]"           DO NOT TOUCH DRIVE"
370 [141]500
375 [153]"LOAD PRINTING "
376 [153]"          DO NOT TOUCH PRINTER"
380 [139]PR$[178]"E"[167][141]720:[137]400
390 [141]930
400 [139]SI$[178]"O"[167][141]1450:[141]1530:[137]450
410 [153]"TURN DISK OVER - PRESS RETURN"
420 [161]R$:[139]R$[178]""[167]420
430 [153]"LOAD WORKING "
440 [153]"DO NOT TOUCH DRIVE":[141]500
442 [153]"LOAD PRINTING "
444 [153]"DO NOT TOUCH PRINTER"
445 [141]1140:[141]1530
450 [153]"          MAKE ANOTHER JACKET?";
460 [161]R$:[139]R$[178]""[167]460
470 [139]R$[178]"Y"[167][138]
480 [128]
490 [143]  ** GET DIRECTORY ENTRIES **   :
500 [159]1,8,0,"$0"
510 I[178]0:N$[178][199](0)
520 [129]N[178]1[164]25:SP$[178]SP$[170]" ":[130]
530 [161]#1,D$,D$
540 :
550 [143]  ** BEGIN MAIN LOOP **
560 I[178]I[170]1
570 [161]#1,D$,D$
580 :
590 [139]D$[178]""[167]700
600 :
610 [161]#1,A$(I),B$(I)
620 C$(I)[178][196]([198](A$(I)[170]N$)[170][198](B$(I)[170]N$)[172]256)
630 :
640 [161]#1,D$
650 :
660 [139]D$[178]""[167]560
670 :
680 C$(I)[178]C$(I)[170]D$
690 C$(I)[178][200](C$(I),25):[137]640
700 [160]1
710 [142]
720 [143] *** EPSON PRINT ROUTINE ***   :
730 [129]N[178]1[164]118:DA$[178]DA$[170]"-":[130]
740 [129]N[178]1[164]79:CN$[178]CN$[170]" ":[130]
750 [129]N[178]1[164]98:BL$[178]BL$[170]"-":[130]
760 LS$[178]"!         !        ":RS$[178]"         !         !"
770 [159]4,4
780 [152]4,P$;DA$;"  CUT"
790 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
800 [152]4,P$;"SIDE 1";[201](RS$,18)
810 [152]4,LS$;CN$;RS$
820 [129]J[178]2[164]I [169]3
830 [139]C$(J)[178]""[167]C$(J)[178]SP$
840 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
850 [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
860 [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
870 LC[178]LC[170]1
880 [130]
890 [129]L[178]1[164]21[171]LC:[152]4,LS$;CN$;RS$:[130]
900 [152]4,DA$;"   FOLD"
910 LS$[178]"          !        ":RS$[178]"         !"
920 [160]4:[142]
930 [143] *** COMMODORE PRINT ROUTINE ***
940 [129]N[178]1[164]69:DA$[178]DA$[170]"-":[130]
950 [129]N[178]1[164]52:CN$[178]CN$[170]" ":[130]
960 [129]N[178]1[164]56:BL$[178]BL$[170]"-":[130]
970 [159]4,4
980 [139]C$(J)[178]""[167]C$(J)[178]SP$
990 [152]4,P$;DA$;"  CUT"
1000 LS$[178]"!      ! ":RS$[178]" !     !"
1010 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
1020 [152]4,[199](15)[199](146)" SIDE 1 "RS$
1030 [152]4,LS$;CN$;RS$
1040 [129]J[178]2[164]I [169]2
1050 [139]C$(J)[178]""[167]C$(J)[178]SP$
1060 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
1070 [152]4,LS$;C$(J);"  ";C$(J[170]1);RS$
1080 LC[178]LC[170]1
1090 [130]
1100 [129]L[178]1[164]21[171]LC:[152]4,LS$;CN$;RS$:[130]
1110 [152]4,DA$;"   FOLD"
1120 LS$[178]"       !":RS$[178]"  !"
1130 [160]4:[142]
1140 [143] *** SIDE 2 PRINT ROUTINE ***  :
1150 LC[178]0
1160 [139]PR$[178]"E"[167]1290
1170 [159]4,4:[152]4,LS$;CN$;RS$
1180 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
1190 [152]4,[199](15);[199](146)" SIDE 2 "RS$
1200 [152]4,LS$;CN$;RS$
1210 [129]J[178]2[164]I [169]2
1220 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
1230 [152]4,LS$;C$(J);"  ";C$(J[170]1);RS$
1240 LC[178]LC[170]1
1250 [130]
1260 [129]L[178]1[164]25[171]LC:[152]4,LS$;CN$;RS$:[130]
1270 [152]4,[163]7);:[152]4,BL$;"   CUT"
1280 [152]4:[160]4:[137]1440
1290 [143]  *** EPSON SIDE 2 ***         :
1300 [159]4,4:[152]4,LS$;CN$;RS$
1310 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
1320 [152]4,P$;"SIDE 2";[201](RS$,18)
1330 [152]4,LS$;CN$;RS$
1340 [129]J[178]2[164]I [169]3
1350 [139]C$(J)[178]""[167]C$(J)[178]SP$
1360 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
1370 [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
1380 [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
1390 LC[178]LC[170]1
1400 [130]
1410 [129]L[178]1[164]25[171]LC:[152]4,LS$;CN$;RS$:[130]
1420 [152]4,[163]10);:[152]4,BL$;"   CUT"
1430 [152]4:[160]4
1440 [142]
1450 [143]  *** BLANK SIDE 2 ***
1460 [159]4,4
1470 [129]C[178]1[164]27:[152]4,LS$;CN$;RS$:[130]
1480 [139]PR$[178]"E"[167]1500
1490 [152]4,"       "BL$;"   CUT":[137]1510
1500 [152]4,[163]10);:[152]4,BL$;"   CUT"
1510 [152]4:[160]4
1520 [142]
1530 [143] ** FORM FEED **               :
1540 [129]R[178]1[164]2:[159]4,4:[152]4,[199](12):[160]4:[130]R
1550 [142]
6682